home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / dcc_timeout < prev    next >
Text File  |  2002-09-18  |  465b  |  26 lines
  1. @ dcc.inbound.threshhold = 0
  2. @ dcc.outbound.threshhold = 0
  3.  
  4. on #-timer -333 * 
  5. {
  6.     ^stack push on dcc_list
  7.  
  8.     ^on dcc_list * #
  9.     if (dcc.inbound.threshold) {
  10.         ^on -dcc_list "* * * Offered *" {
  11.             if (time() - [$4] > dcc.inbound.threshhold) 
  12.                 { dcc close $0 $2 }
  13.         }
  14.     }
  15.     if (dcc.outbound.threshold) {
  16.         ^on -dcc_list "* * * Waiting *" {
  17.             if (time() - [$4] > dcc.outbound.threshhold) 
  18.                 { dcc close $0 $2 }
  19.         }
  20.     }
  21.     ^//dcc list
  22.  
  23.     ^stack pop on dcc_list
  24. }
  25. #hop'98
  26.